home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / lsestuff / na_test.e < prev    next >
Text File  |  1999-11-29  |  728b  |  37 lines
  1. MODULE '*newarrayx'
  2.  
  3. PROC main()
  4.    DEF na:PTR TO newArrayX, a, stop
  5.    NEW na.newArrayX()
  6.    stop:=10000
  7.    SystemTagList('date', NIL)
  8.  
  9.    FOR a:=0 TO stop
  10.       na.setE(a, a)
  11.       na.getE(a)
  12.       na.setE(a, a)
  13.       na.getE(a)
  14.       na.setE(a, a)
  15.       na.getE(a)
  16.       na.setE(a, a)
  17.       na.getE(a)
  18.       ->na.setE(a, a)
  19.       ->na.getE(a)
  20.       ->na.setE(a, a)
  21.       ->na.getE(a)
  22.       ->na.setE(a, a)
  23.       ->na.getE(a)
  24.       ->na.setE(a, a)
  25.       ->na.getE(a)
  26.    ENDFOR
  27.  
  28.    SystemTagList('date', NIL)                     
  29.    WriteF('counting nodes..\d\n', na.countX())
  30.    WriteF('sum of values..\d\n', na.getSumA())
  31.    WriteF('average of values..\d\n', na.getAveA())
  32.    SystemTagList('date', NIL)
  33.   
  34.  
  35.    END na
  36. ENDPROC
  37.